home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / bbs_util / mcm10g5.zip / MCMTYPES.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-17  |  13KB  |  244 lines
  1. {============================================================================}
  2. {*
  3. **  McMail - FidoNet compatible Mailer
  4. **  Unit    : Definition
  5. **  File    : MCMTYPES.PAS
  6. **  L_Edit  : 05.01.1996
  7. **
  8. **  Compiler: Borland Pascal 7.01
  9. **
  10. **  Copyright by Albert Freriks and Gordian Schuermann, all rights reserved.
  11. **
  12. **
  13. **                 All information in this documentation is
  14. **                  subject to change without prior notice
  15. *}
  16. {============================================================================}
  17.  
  18. Unit MCMTYPES;
  19.  
  20. INTERFACE
  21.  
  22. {============================================================================}
  23.  
  24. type
  25.  
  26.   S1=String[1]; S2=String[2]; S3=String[3]; S4=String[4]; S5=String[5];
  27.   S6=String[6]; S7=String[7]; S8=String[8]; S9=String[9]; S10=String[10];
  28.   S11 =String[11]; S12=String[12]; S13=String[13]; S14=String[14]; S15=String[15];
  29.   S16 =String[16]; S17=String[17]; S18=String[18]; S19=String[19]; S20=String[20];
  30.   S21 =String[21]; S22=String[22]; S23=String[23]; S24=String[24]; S25=String[25];
  31.   S26 =String[26]; S27=String[27]; S28=String[28]; S29=String[29]; S30=String[30];
  32.   S31 =String[31]; S32=String[32]; S33=String[33]; S34=String[34]; S35=String[35];
  33.   S36 =String[36]; S37=String[37]; S38=String[38]; S39=String[39]; S40=String[40];
  34.   S41 =String[41]; S42=String[42]; S43=String[43]; S44=String[44]; S45=String[45];
  35.   S46 =String[46]; S47=String[47]; S48=String[48]; S49=String[49]; S50=String[50];
  36.   S51 =String[51]; S52=String[52]; S53=String[53]; S54=String[54]; S55=String[55];
  37.   S56 =String[56]; S57=String[57]; S58=String[58]; S59=String[59]; S60=String[60];
  38.   S61 =String[61]; S62=String[62]; S63=String[63]; S64=String[64]; S65=String[65];
  39.   S66 =String[66]; S67=String[67]; S68=String[68]; S69=String[69]; S70=String[70];
  40.   S71 =String[71]; S72=String[72]; S73=String[73]; S74=String[74]; S75=String[75];
  41.   S76 =String[76]; S77=String[77]; S78=String[78]; S79=String[79]; S80=String[80];
  42.   S81 =String[81]; S82=String[82]; S83=String[83]; S84=String[84]; S85=String[85];
  43.   S86 =String[86]; S87=String[87]; S88=String[88]; S89=String[89]; S90=String[90];
  44.   S91 =String[91]; S92=String[92]; S93=String[93]; S94=String[94]; S95=String[95];
  45.   S96 =String[96]; S97=String[97]; S98=String[98]; S99=String[99]; S100=String[100];
  46.   S101=String[101]; S102=String[102]; S103=String[103]; S104=String[104]; S105=String[105];
  47.   S106=String[106]; S107=String[107]; S108=String[108]; S109=String[109]; S110=String[110];
  48.   S111=String[111]; S112=String[112]; S113=String[113]; S114=String[114]; S115=String[115];
  49.   S116=String[116]; S117=String[117]; S118=String[118]; S119=String[119]; S120=String[120];
  50.   S121=String[121]; S122=String[122]; S123=String[123]; S124=String[124]; S125=String[125];
  51.   S126=String[126]; S127=String[127]; S128=String[128]; S129=String[129]; S130=String[130];
  52.   S131=String[131]; S132=String[132]; S133=String[133]; S134=String[134]; S135=String[135];
  53.   S136=String[136]; S137=String[137]; S138=String[138]; S139=String[139]; S140=String[140];
  54.   S141=String[141]; S142=String[142]; S143=String[143]; S144=String[144]; S145=String[145];
  55.   S146=String[146]; S147=String[147]; S148=String[148]; S149=String[149]; S150=String[150];
  56.   S151=String[151]; S152=String[152]; S153=String[153]; S154=String[154]; S155=String[155];
  57.   S156=String[156]; S157=String[157]; S158=String[158]; S159=String[159]; S160=String[160];
  58.   S161=String[161]; S162=String[162]; S163=String[163]; S164=String[164]; S165=String[165];
  59.   S166=String[166]; S167=String[167]; S168=String[168]; S169=String[169]; S170=String[170];
  60.   S171=String[171]; S172=String[172]; S173=String[173]; S174=String[174]; S175=String[175];
  61.   S176=String[176]; S177=String[177]; S178=String[178]; S179=String[179]; S180=String[180];
  62.   S181=String[181]; S182=String[182]; S183=String[183]; S184=String[184]; S185=String[185];
  63.   S186=String[186]; S187=String[187]; S188=String[188]; S189=String[189]; S190=String[190];
  64.   S191=String[191]; S192=String[192]; S193=String[193]; S194=String[194]; S195=String[195];
  65.   S196=String[196]; S197=String[197]; S198=String[198]; S199=String[199]; S200=String[200];
  66.   S201=String[201]; S202=String[202]; S203=String[203]; S204=String[204]; S205=String[205];
  67.   S206=String[206]; S207=String[207]; S208=String[208]; S209=String[209]; S210=String[210];
  68.   S211=String[211]; S212=String[212]; S213=String[213]; S214=String[214]; S215=String[215];
  69.   S216=String[216]; S217=String[217]; S218=String[218]; S219=String[219]; S220=String[220];
  70.   S221=String[221]; S222=String[222]; S223=String[223]; S224=String[224]; S225=String[225];
  71.   S226=String[226]; S227=String[227]; S228=String[228]; S229=String[229]; S230=String[230];
  72.   S231=String[231]; S232=String[232]; S233=String[233]; S234=String[234]; S235=String[235];
  73.   S236=String[236]; S237=String[237]; S238=String[238]; S239=String[239]; S240=String[240];
  74.   S241=String[241]; S242=String[242]; S243=String[243]; S244=String[244]; S245=String[245];
  75.   S246=String[246]; S247=String[247]; S248=String[248]; S249=String[249]; S250=String[250];
  76.   S251=String[251]; S252=String[252]; S253=String[253]; S254=String[254]; S255=String[255];
  77.  
  78. {============================================================================}
  79.  
  80. const
  81.  
  82.   MaxAkas               = 255;
  83.   MaxEvents             = 75;
  84.   MaxDomains            = 60;
  85.   MaxDial               = 50;
  86.  
  87.   ShareRead             = $00;
  88.   ShareWrite            = $01;
  89.   ShareRW               = $02;
  90.   ShareDenyRW           = $10;
  91.   ShareDenyW            = $20;
  92.   ShareDenyR            = $30;
  93.   ShareDenyNone         = $40;
  94.   ShareExclusiv         = $80;
  95.  
  96. {============================================================================}
  97.  
  98. type
  99.  
  100.   StrPath               = s128;
  101.  
  102.   QueRecord             = record
  103.                             as_out_fname         : strpath;
  104.                             as_out_flo           : strpath;
  105.                             ab_out_flag          : byte;
  106.                             al_out_pos           : longint;
  107.                             as_out_aka           : s35;
  108.                           end;
  109.  
  110.   LastsetRecord         = record
  111.                             b_hismode            : byte;
  112.                             s_lastinp            : s40;
  113.                             bo_zoomed            : boolean;
  114.                             bo_showsize          : boolean;
  115.                           end;
  116.  
  117.   FlowRecord            = record
  118.                             l_inb,
  119.                             l_outb               : real;
  120.                             l_cost               : longint;
  121.                             w_faxcalls,
  122.                             w_incalls,
  123.                             w_outcalls,
  124.                             w_bbscalls           : word;
  125.                           end;
  126.  
  127.   HistoryRecord         = record
  128.                             w_cps                : word;
  129.                             l_speed              : longint;
  130.                             l_inb,
  131.                             l_outb               : longint;
  132.                             s_session,
  133.                             s_node,
  134.                             s_name               : s40;
  135.                             s_system             : s40;
  136.                             s_start              : s5;
  137.                             w_mins               : word;
  138.                             l_cost               : longint;
  139.                             s_date               : s11;
  140.                           end;
  141.  
  142.   InterTaskRecord       = record
  143.                             doing                : s39;
  144.                           end;
  145.  
  146.   OutBoundRecord        = record
  147.                             l_boh                : longint;
  148.                             w_days               : word;
  149.                             w_fls                : word;
  150.                             s_node               : s35;
  151.                             bo_sent              : boolean;
  152.                             s_flos               : s7;
  153.                           end;
  154.  
  155.  
  156.   Schedulerecord        = record
  157.                             b_lastshutdown       : byte;
  158.                             l_lastend            : longint;
  159.                             s_lastpoll,
  160.                             s_evtdone            : string;
  161.                           end;
  162.  
  163.   BadWaZOORecord        = record
  164.                             b_day                : byte;
  165.                             bo_Del               : boolean;
  166.                             s_fname              : StrPath;
  167.                             l_fsize              : LongInt;
  168.                             l_ftime              : LongInt;
  169.                             s_badname            : StrPath;
  170.                             s_node               : s35;
  171.                           end;
  172.  
  173.  
  174.   Nodedatarecord        = record
  175.                             s_aka                : string;
  176.                             s_password           : s10;
  177.                             s_phone              : s120;
  178.                             s_prefix             : string;
  179.                             s_suffix             : string;
  180.                             b_maxakas            : byte;
  181.                             l_taskkey            : longint;
  182.                             s_flags              : s40;
  183.                             s_system             : s40;
  184.                             s_ncap               : s15;
  185.                             s_outdir             : string;
  186.                             s_indir              : strpath;
  187.                             s_sysop              : s40;
  188.                             s_zmatch             : string;
  189.                             s_costlogfile        : strpath;
  190.                             s_infoid             : string;
  191.                             l_infosize           : longint;
  192.                             l_ccbsize            : longint;
  193.                             s_faxf               : string;
  194.                             s_faxfattr           : s60;
  195.                           end;
  196.  
  197.  
  198.   Bbsdatarecord         = record
  199.                             s_password           : s20;
  200.                             s_phone              : s40;
  201.                             s_prefix             : string;
  202.                             s_suffix             : string;
  203.                             s_system             : s40;
  204.                             s_cap                : s80;
  205.                             s_sysop              : s40;
  206.                           end;
  207.  
  208.  
  209.   NodeIdxRecord         = record                                {????????.MMI}
  210.                             nodeType   : byte;                        {0=Zone}
  211.                                                                     {1=Region}
  212.                                                                       {2=Host}
  213.                             number     : word;      {Zone, region, net number}
  214.                             cost       : word;                  {# of credits}
  215.                             incEntry   : byte;      {Entry#+1 in ????????.MMN}
  216.                             pointer    : longInt;        {Pointer to nodelist}
  217.                           end;
  218.  
  219.   NodeIncRecord         = String[16];                           {????????.MMN}
  220.  
  221.   RemInfoRecord         = record
  222.                             name           : s80;                {System name}
  223.                             operator       : s80;            {System operator}
  224.                             location       : s40;            {System location}
  225.                             phone          : s26;    {System telephone number}
  226.                             domain         : s29;
  227.                             baudrate       : longint;      {Maximum baud rate}
  228.                             flags          : s51;             {Nodelist flags}
  229.                             zone,                                {Primary AKA}
  230.                             net,
  231.                             node,
  232.                             point          : word;
  233.                             capabilities   : longint;         {Nodelist flags}
  234.                             trxnum         : s10;         {Transaction number}
  235.                             serialnumber   : s31;              {Serial number}
  236.                             password       : s18;     {Session level password}
  237.                           end;
  238.  
  239. {============================================================================}
  240.  
  241. IMPLEMENTATION
  242.  
  243. END.
  244.